﻿' BasecampVB - http://www.tidbitsandtangents.com
' Copyright (c) 2009
' by Rusty S. Swayne
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
' INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
' DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
' SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
' SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
' WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
' THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Namespace DAL


    Public Class CompanyDetails

        Public Sub New( _
            ByVal company_id As Integer, _
            ByVal name As String, _
            ByVal address_one As String, _
            ByVal address_two As String, _
            ByVal city As String, _
            ByVal state As String, _
            ByVal zip As String, _
            ByVal country As String, _
            ByVal phone_number_fax As String, _
            ByVal phone_number_office As String, _
            ByVal time_zone_id As String, _
            ByVal web_address As String)

            Me.company_id = company_id
            Me.name = name
            Me.address_one = address_one
            Me.address_two = address_two
            Me.city = city
            Me.state = state
            Me.zip = zip
            Me.country = country
            Me.phone_number_fax = phone_number_fax
            Me.phone_number_office = phone_number_office
            Me.time_zone_id = time_zone_id
            Me.web_address = web_address


        End Sub



#Region "Properties"

        Private _company_id As Integer
        Public Property company_id() As Integer
            Get
                Return _company_id
            End Get
            Set(ByVal value As Integer)
                _company_id = value
            End Set
        End Property

        Private _name As String
        Public Property name() As String
            Get
                Return _name
            End Get
            Set(ByVal value As String)
                _name = value
            End Set
        End Property


        Private _address_one As String
        Public Property address_one() As String
            Get
                Return _address_one
            End Get
            Set(ByVal value As String)
                _address_one = value
            End Set
        End Property

        Private _address_two As String
        Public Property address_two() As String
            Get
                Return _address_two
            End Get
            Set(ByVal value As String)
                _address_two = value
            End Set
        End Property

        Private _city As String
        Public Property city() As String
            Get
                Return _city
            End Get
            Set(ByVal value As String)
                _city = value
            End Set
        End Property

        Private _state As String
        Public Property state() As String
            Get
                Return _state
            End Get
            Set(ByVal value As String)
                _state = value
            End Set
        End Property

        Private _zip As String
        Public Property zip() As String
            Get
                Return _zip
            End Get
            Set(ByVal value As String)
                _zip = value
            End Set
        End Property


        Private _country As String
        Public Property country() As String
            Get
                Return _country
            End Get
            Set(ByVal value As String)
                _country = value
            End Set
        End Property

        Private _phone_number_fax As String
        Public Property phone_number_fax() As String
            Get
                Return _phone_number_fax
            End Get
            Set(ByVal value As String)
                _phone_number_fax = value
            End Set
        End Property


        Private _phone_number_office As String
        Public Property phone_number_office() As String
            Get
                Return _phone_number_office
            End Get
            Set(ByVal value As String)
                _phone_number_office = value
            End Set
        End Property

        Private _time_zone_id As String
        Public Property time_zone_id() As String
            Get
                Return _time_zone_id
            End Get
            Set(ByVal value As String)
                _time_zone_id = value
            End Set
        End Property

        Private _web_address As String
        Public Property web_address() As String
            Get
                Return _web_address
            End Get
            Set(ByVal value As String)
                _web_address = value
            End Set
        End Property




#End Region

    End Class

End Namespace